home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc19 / gemfsc19.lzh / GEMFBIND / AESSHEL1.S < prev    next >
Text File  |  1993-03-10  |  2KB  |  87 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*    04/05/89 -    v1.2
  7. ;*                Finally received confirmation for the proper definitions
  8. ;*                of shel_get/shel_put.  The (incorrect) definition of
  9. ;*                shel_get() was removed from this module and built properly
  10. ;*                in aesshel2.s.
  11. ;*========================================================================
  12.  
  13.  
  14. ;*************************************************************************
  15. ;*
  16. ;* Shell library routines 1 of 2.
  17. ;*
  18. ;*************************************************************************
  19.  
  20. ;-------------------------------------------------------------------------
  21. ; shel_read
  22. ;-------------------------------------------------------------------------
  23.  
  24.           globl     _shel_read
  25. _shel_read:
  26. ;          .cargs    #4,pcmd.l,ptail.l
  27.  
  28. pcmd            =    4
  29. ptail            =    8
  30.  
  31.           move.l    #$78000102,d0       ; AControl  120,0,1,2
  32.           lea        pcmd(sp),a0    ; -> addrin
  33.           jmp        aes_do
  34.  
  35. ;-------------------------------------------------------------------------
  36. ; shel_write
  37. ;-------------------------------------------------------------------------
  38.  
  39.           globl     _shel_write
  40. _shel_write:
  41. ;          .cargs    #4,doex,wisgr,wiscr,pcmd.l,ptail.l
  42.  
  43. doex            =    4
  44. wisgr            =    6
  45. wiscr            =    8
  46. pcmd             =     10
  47. ptail             =     14
  48.  
  49.           move.l    #$79030102,d0       ; AControl  121,3,1,2
  50.           lea        doex(sp),a1        ; -> intin
  51.           lea        pcmd(sp),a0        ; -> addrin
  52.           jmp        aes_do
  53.  
  54.  
  55. ;-------------------------------------------------------------------------
  56. ; shel_find
  57. ;-------------------------------------------------------------------------
  58.  
  59.           globl     _shel_find
  60. _shel_find:
  61.  
  62. ;          .cargs    #4,pbuf.l
  63.  
  64. pbuf            =    4
  65.  
  66.           move.l    #$7C000101,d0       ; AControl  124,0,1,1
  67.           lea        pbuf(sp),a0    ; -> addrin
  68.           jmp        aes_do
  69.  
  70. ;-------------------------------------------------------------------------
  71. ; shel_envrn
  72. ;-------------------------------------------------------------------------
  73.  
  74.           globl     _shel_envrn
  75. _shel_envrn:
  76. ;          .cargs    #4,pvalue.l,pparm.l
  77.  
  78. pvalue            =    4
  79. pparm             =     8
  80.  
  81.           move.l    #$7D000103,d0       ; AControl  125,0,1,3
  82.           lea        pvalue(sp),a0     ; -> addrin
  83.           jmp        aes_do
  84.  
  85. ;          end of code
  86.  
  87.